home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ETO Development Tools 4
/
ETO Development Tools 4.iso
/
Tools - Objects
/
Virtual User 1.0
/
UserStartup•VU
< prev
Wrap
Text File
|
1991-01-25
|
1KB
|
59 lines
#
# File: UserStartup•VU
#
# Drop this file in your MPW Folder
#
# Contains: Initializations for Virtual User extension in MPW
#
# Written by: P Nagarajan
#
# Copyright: © 1990 by Apple Computer, Inc., all rights reserved.
#
# Change History:
#
# 2/22/90 naga creation
#
# To Do:
#
# Set the location of the Virtual User(or VU) Folder
# If the folder can't be found; automatically prompts user for it and
# changes this file to remember where the folder was found
Set VUDir "hd:Virtual User:"
Loop
if `Exists "{VUDir}"Startup` != ""
Export VUDir
Set VULibraries "{VUDir}Libraries:"
Export VULibraries
Execute "{VUDir}"Startup
if {EverLooked} == 1
set exit 0
confirm "'UserStartup•VU' will be modified to find Virtual User without any help next time.∂
You will have to save it."
if {Status} == 0
open "{ShellDirectory}UserStartup•VU"
find • "{active}"
find /'Set VUDir'[ ∂t]+/Δ:Δ/∂n/ "{active}"
# we cat because the path may contain characters significant to: Replace
echo -n ∂""{VUDir}"∂" | Catenate > "{active}".§
end #if asked to modify
end #if New VU directory seen
exit 0
else
set exit 0
Set EverLooked 1
Set VUDir ""
Beep
(Set VUDir `getfilename -d -m 'Find the Virtual User folder'`) ∑ dev:null
set exit 1
if "{VUDir}" == ""
exit 1
end
end
end